%
Response.Expires = 60
Response.Expiresabsolute = Now() - 1
Response.AddHeader "pragma","no-cache"
Response.AddHeader "cache-control","private"
Response.CacheControl = "no-cache"
%>
<%
codigo = request("codigo")
if not codigo="" then
set Cadastro = conn.execute("select * from SALA where codigo = " & codigo)
else
set Cadastro = conn.execute("select * from SALA order by data desc")
end if
if not Cadastro.eof then
codigo = Cadastro("codigo")
data = Cadastro("data")
ano = Left(data,4)
mes = Mid(data,5,2)
dia = Right(data,2)
titulo = checkTexto2(Cadastro("titulo"))
titulo = RemoveHTML(titulo)
gravata = checkTexto2(Cadastro("gravata"))
gravata = RemoveHTML(gravata)
texto = RemoveHTML_texto(checkTexto2(Cadastro("texto")))
texto = Replace(texto, "
", "
")
autor = RemoveHTML(checkTexto2(Cadastro("autor")))
end if
%>